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1.  INTRODUCTION 


There  have  been  a number  of  papers  published  during  Che 
last  several  years  on  the  use  of  macro  Instructions  as  a means  of 
practicing  structured  programming  with  assembly  languages  (Refs.  1 
through  5) . The  authors  of  these  papers  have  all  experienced 
marked  Improvement  In  program  readability  and  productivity  through 
the  Judicious  practice  of  structured  programming  using  macro  In- 
structions. 

It  Is  Interesting  to  note  that  most  of  these  writers  devel- 
oped macro  Instructions  for  small  computers.  Assembly  languages 
are  popular  among  programmers  of  small  computers  In  spite  of  the 
known  low  productivity  associated  with  them.  This  unfortunate 
situation  results  from  the  fact  that  Inadequacy  and  Inefficiency 
of  Che  high-level  languages  and  their  compilers  are  more  strongly 
felt  for  many  small  computer  applications.  More  specifically: 

1.  Most  high-level  languages  are  for  general  purpose  use, 
yet  they  are  not  general  enough  Co  meet  easily  the 
needs  of  the  variety  of  Casks  for  small  computer  appli- 
cations. 

2.  High-level  languages  do  not  let  Che  user  directly  take 
advantage  of  the  host  computer  facilities. 

3.  High-level  language  programs  are  frequently  translated 
into  machine  codes  with  unacceptably  Inefficient  core 
utilizations  and  execution  speeds  for  many  small  computer 
applications. 


R*f.  1.  C.  W.  Barth,  "STRCMACS  - An  Extensive  Set  of 
Macros  to  Aid  In  Structured  Programming  In  360/370  Assembly  Lan- 
guage," SIGPLAN  Notices,  Vol.  22,  No.  8,  1976,  pp.  30-35. 

Ref.  2.  G.  S.  Herman-Glddens , R.  B.  Warren,  R.  C.  Barr, 
and  M.  S.  Spach,  "BIOMAC  — Block  Structured  Programming  Using  PDP- 
11  Asseid>ler  Language,"  SOFTWARE;  Practice  and  Experiences.  Vol.  5. 

Ref.  3.  S.  W.  Kahng,  "Structured  Programming  and  Debugging 
Aids  with  MACRO-11  Assembly  Language  for  the  PDP-11  Computer," 
APL/JHU  TG  1294,  April  1976. 

Ref.  4.  C.  Pepper,  "SMAL  — A Structured  Macro-Assembly 
Language  for  a Microprocessor,"  IEEE  CCTIPCON  Fall  Digest  of  Papers. 
September  1974,  pp.  147-151. 

Ref.  5.  G.  E.  Rlens,  "Structured  Programming  In  Assembly 
Language,"  Datamation.  July  1976,  pp.  79-84. 
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To  overcome  existing  problems,  machine-oriented  high-level 
languages  (MOHLL)  have  been  developed  for  several  computers  (PL-360 
for  the  IBM  360  computer  Is  the  best-known  MOHLL) . They  are  high- 
level  languages  that  are  oriented  to  the  host  computer  to  take  ad- 
vantage of  all  or  most  of  the  facilities  with  a sacrifice  In  pro- 
gram transportability  with  other  types  of  computers.  MOHLL  Is 
superior  to  the  macro  Instructions.  However,  It  suffers  from  a 
few  disadvantages.  The  most  Important  one  Is  the  unavailability 
of  good  MOHLL  for  most  computers.  When  such  MOHLL  are  not  avail- 
able, macro  Instructions  can  be  developed  easily  and  can  satisfy 
many  of  the  advantages  of  MOHLL.  This  paper  will  describe  examples 
of  macro  definitions  that  can  collectively  satisfy  the  objectives 
reasonably  well.  It  Is  believed  that  they  are  not  original  contri- 
butions; the  use  of  similar  macros  has  already  been  described 
(Refs.  1 through  5).  However,  we  believe  this  paper  Is  still  rele- 
vant for  the  following  reasons: 

1.  The  contents  of  Section  4 of  this  paper  are  not  readily 
available  to  practicing  programmers,  and 

2.  It  Is  not  yet  widely  known  that  a substantial  benefit 
can  be  derived  from  the  use  of  these  macros  at  an  In- 
significant cost. 

In  Section  2 we  discuss  further  the  MOHLL  and  macro  In- 
structions. in  Section  3 the  constructs  of  three  macro  Instruc- 
tions are  defined,  and  In  Section  4 each  subprogram  of  the  proces- 
sor Is  described.  Concluding  remarks  are  given  In  Section  5.  A 
processor  program  for  the  PDP-11  computer  Is  listed  In  the  Appendix. 
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2.  MOHLL  AND  MACRO  INSTRUCTIONS 


It  has  been  claimed  (Refs.  6 through  8)  that  the  disadvan- 
tages of  high-level  languages  as  systems  languages  are  mostly 
overcome  through  MOHLL.  Productivity  with  MOHLL  Is  higher  than 
that  with  the  assembly  languages;  the  compiled  machine  codes  are 
more  efficient  than  those  from  the  general  purpose  high-level  lan- 
guages. In  fact,  some  of  the  MOHLL  and  their  compiled  codes  are 
so  Impressive  that  MOHLL  was  proposed  to  replace  assembly  languages 
for  programming  purposes  (Refs.  6 through  8). 

Advantages  of  using  MOHLL  are  not  limited  to  these. 

Through  the  suitable  MOHLL,  a programmer  can  practice  structured 
programming  and  produce  readable  codes.  If,  In  addition,  the 
MOHLL  compiler  can  be  easily  modified  by  the  users  to  add  new  pro- 
cessing capabilities,  or  If  It  has  an  extensive  macro  capability, 
then  further  programming  conveniences  can  be  gained  through  tail- 
oring the  MOHLL  for  the  given  task.  As  an  example.  If  a program- 
ming task  frequently  requires  double-precision  Integer  arithmetic. 
It  Is  desirable  to  add  such  arithmetic  expression  processing  capa- 
bility to  the  MOHLL.  These  capabilities  need  not  be  general  pur- 
pose. A simple  and  efficient  special  purpose  processor  that  meets 
the  need  of  the  specific  task  will  be  more  desirable.  Through 
this  process  one  can  modify  and  extend  the  MOHLL  to  suit  the  given 
task.  The  advantages  of  extending  MOHLL  In  this  way  are: 

1.  The  program  becomes  more  readable. 

2.  There  will  be  less  need  to  modify  the  algorithm  to  fit 
the  programming  language. 

3.  Coding  will  be  made,  or  nearly  made,  as  the  end  product 
of  the  successively  refined  program-design  process,  and 
not  as  a separate  effort  from  the  design. 


Ref.  6.  R.  Conradl,  P.  Holager,  01  Solberg,  and  G.  Green, 

"A  System  for  Software  Development  on  Minicomputers,"  Minicomputer 
Softwere,  North-Holland  Publishing  Co.,  1976,  pp.  15-29. 

Ref.  7.  H.  Lehessaarl,  "A  Family  of  Machine  Oriented  Higher 
Level  Languages  (MOHLL),"  Minicomputer  Software.  North-Holland 
Publishing  Co.,  1976.  pp.  231-237. 

Ref.  8.  R.  D.  Russell,  "Intermediate-Level  Programming 
Languages  for  On-Line  Data  Acquisition  and  Control,"  Computer 
Physics  Conmunicatione.  Vol.  5,  1973,  pp.  89-97. 
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The  first  item  is  obvious.  A simple  case  of  algorithm 
modification  (the  second  Item)  Is  the  use  of  0 as  a subscript.  It 
Is  not  allowed  In  FORTRAN  while  It  can  be  desirable  In  the  descrip- 
tion of  the  algorithm.  The  third  Item  needs  explanation.  We 
assume  that  the  program  design  Is  made  through  a language  whose 
syntax  Is  adapted  from  that  of  the  MOHLL.  If  the  adaptation  Is 
very  loose  at  the  top  level  of  the  design  but  becomes  successively 
closer  to  that  of  the  MOHLL  with  the  progressive  refinement  of  the 
design,  we  will  end  up  with  (or  almost  end  up  with)  the  program 
code.  Such  smooth  transition  should  be  possible  If  the  MOHLL  Is 
well  tailored  to  the  progrcunmlng  task. 

So  far  we  have  discussed  many  advantages  of  a desirable 
MOHLL.  Unfortunately  there  Is  no  language  that  provides  all  these 
advantages.  However,  we  can  fairly  easily  produce  macro  Instruc- 
tions that  provide  many  of  them. 

In  order  to  realize  these  advantages  It  Is  desirable  to 
/e  a good  macro  language  and  Its  processor.  Many  macro  languages 
versatile,  but  most  are  not  suitable  for  producing  easily  read- 
macro  definitions.  Those  for  small  computers  are  often  Inade- 
quate. On  the  other  hand,  for  a special  type  of  macro  Instruction 
(as  described  In  Section  3) , a high-level  language  like  FORTRAN 
can  be  used,  along  with  a few  subroutines,  for  developing  their 
processor  with  relative  ease.  In  fact.  Its  versatility,  code  read- 
ability, and  processing  speed  surpass  those  of  many  macro  process- 
ors. For  these  reasons  and  for  portability  It  Is  frequently  desir- 
able to  develop  a special  macro  processor  rather  than  to  rely  on 
the  available  general  purpose  macro  processors. 

The  relative  ease  of  the  special  purpose  macro  processor 
development  enables  us  to  add  new  conveniences  to  the  host  lan- 
guage (assembly  language  In  this  case)  to  suit  the  given  software 
task.  One  example  Is  the  arithmetic  formula  processing  capability 
(e.g.,  A ■ (B  + C * D)/E).  One  can  also  Include  the  program  de- 
veloping aids  such  as  the  tracing  option  (Ref.  2)  or  a partial 
program  verification  procedure  In  the  processor.  These  may  be 
used  as  necessary. 
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3.  MACRO  CONSTRUCTS 

Macro  InsCrucClons  considered  here  are  if,  repeat-while, 
and  for  statements.  Their  constructs  are  shown  below;  they  also 
show  which  terms  of  the  statements  can  start  new  lines. 

IF  STATEMENT 

<lf  clause>  : <lf>  sd  <loglcal  operator>  sd, 

where  sd  Is  the  source  or  destination  of  the  assembly  language 
Instruction. 

<lf>  IF  I IFB  [ IFF 

I i AND  I 

<lf  chaln>  <lf  clause>  | <lf  clause>  j | <lf  chaln> 
<lf  statement>  <lf  chaln>  THEN  <one  assembly  lnstructlon> 
or  <lf  chaln>  THEN 

<a  block  of  lnstructlons> 

ENDIF 

or  <lf  chaln>  THEN 

<a  block  of  lnstructlons> 

ELSE  <one  assembly  lnstructlon> 
or  <lf  chaln>  THEN 

<a  block  of  lnstructlone> 

ELSE 

<a  block  of  lnstructlons> 

ENDIF 

<loglcal  opcrator>  GT|GE|eq|le|lt|nE 

The  distinctions  between  IF,  IFB,  and  IFF  are  that  the  terms 
^ in  the  clause  are  taken  as  words,  bytes,  or  floating  point  numbers, 

I 
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respectively.  A block  of  Instructions  contains  one  or  more  assem- 
bly or  macro  Instruction  — If,  repeat-while,  or  for  statements. 

The  terms  AND,  OR,  and  THEN  can  also  start  new  lines.  For 
example: 

IF  A NE  B THEN  CLR  X 


I 


t 


/ 


* 

i 

i 

I 

I 

I 


IF  A GT  B AND  IFB  C EQ  D OR  IFF  E EQ  F THEN 
CLR  X 

ELSE 

CLR  Y 
ENDIF 


IF  A GT  B 
AND 

IFB  C EQ  D 
OR 

IFF  E EQ  F 
THEN 

CLR  X 

ELSE 

CLR  Y 
ENDIF 

REPEAT-WHILE  STATEMENT 

We  divert  from  the  ordinary  while  statement  and  use  the 
repeat-while  statement.  The  difference  Is  shown  In  Fig.  1.  The 
reason  for  using  the  repeat-while  statement  Is  that,  unlike  In  a 
high-level  lenguage,  we  only  allow  very  simple  logical  expression 
here.  Consequently  an  expression  like 

WHILE  ABS(A)  LT  D DO 

(which  means:  while  the  absolute  value  of  A Is  less  than  D,  do 

the  following)  cannot  be  expressed  easily  by  an  ordinary  while 
macro  In  a readable  and  simple  manner.  The  following  repeat-while 
statements  are  acceptable: 
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\ 


\ 


i 

I 

I 


<while  clause>  : :■  <while>  sd  <loglcal  operator>  ad 
<while>  WHILE  | WHILEB  1 WHILEF 
<whlle  chain> 

I I AND ) 

<while  clau8e>  |<while  clause>  ( <whlle  chaln> 
<repeat-whlle  statement> 

REPEAT 

<a  block  of  instructions> 

<while  chain>  DO  <one  assembly  lnstructlon> 
or  REPEAT 

<a  block  of  instructions> 

<while  chaln>  DO 
<a  block  of  instructions> 

ENDWHL 

The  terms  AND,  OR,  and  DO  can  start  new  lines  also.  For  example: 
REPEAT 

WHILE  A GT  B DO  CLR  X 

REPEAT 

CLR  X 

IF  A LT  X THEN  NEG  A (negate  A) 

WHILE  A LT  D DO 

INC  A (Increment  A by  1) 

CLR  Y 
ENDWHL 
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a.  Ordinary  while  statement  b.  Repeat-while  statement 

Fig.  1 Flow  Diagrams 


FOR  STATEMENT 

<for  8tatement>  ; FOR  ad  FROM  sd  |downto|  |BY*ad|  ^ 

<a  block  of  lnstructlon8> 

ENDFOR 

The  block  of  Inatructiona  Is  executed  repeatedly  with  the 
value  of  the  first  sd  varying  from  the  second  to  the  third  sd.  In- 
clusive, with  the  increittent  (decrement  for  DOWNTO)  of  the  fourth 
sd  (or  1 If  It  Is  not  specified)  provided  it  does  not  pass  over 
the  third  sd.  New  lines  may  be  started  only  by  FOR  and  ENDFOR. 

For  example I 
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FOR  A FROM  B UPTO  C DO 
CLR  X 
ENDFOR 

FOR  A FROM  B DOWNTO  C BY  D DO 
CLR  X 
ENDFOR 
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4.  MACRO  DEFINITIONS  AND  THE  PROCESSOR  ORGANIZATION 


If,  repeat-while,  and  for  statements  mentioned  In  the  pre- 
vious sections  are  constructed  through  a number  of  macro  Instruc- 
tions. They  are  as  follows:  IF,  IFB,  IFF,  THEN,  ELSE,  ENDIF, 

AND,  OR,  REPEAT,  WHILE,  WHILES,  WHILEF,  DO  ENDWHL,  FOR  UPTO, 
DOWNTO,  ENDFOR,  and  macros  for  the  logical  operators.  The  special 
processor  mentioned  earlier  can  be  organized  In  a similar  manner 
(one  subroutine  for  each  macro).  In  addition,  the  processor  re- 
quires the  main  program  and  a subroutine  that  scans  a line  of  code 
to  separate  the  terms.  We  will  describe  the  processor  and  use  the 
macro  names  for  the  corresponding  subroutine  names  also. 

When  a line  of  code  Is  read.  It  Is  scanned  and  processed  to 
determine  if  It  Is  the  beginning  of  a new  conditional  statement 
(If,  repeat-while,  or  for  statement).  If  It  Is,  a unique  sequence 
number,  ISQ,  Is  assigned  to  chat  statement  and  we  give  Its  nesting 
level,  ILEV.  ISQ  Is  then  stored  In  ISTAK(ILEV),  or  the  ILEVth 
entry  of  the  array  ISTAK.  Through  this  array  the  sequence  number 
of  a statement  can  be  found  through  Its  nesting  level  until  the 
statement  Is  terminated.  This  sequence  number  plays  an  Important 
role  In  forming  the  destination  of  the  jump  Instructions  and 
labels.  As  an  example,  when  the  new  line  of  code  starts  with 
ELSE,  we  can  find  the  sequence  number  ISQ  for  the  If  statement 
from  ISTAK(ILEV)  and  assign  a label  QEDXXX,  where  XXX  Is  the  se- 
quence number.  The  nesting  level,  ILEV,  Is  Incremented  when  a 
new  statement  Is  entered  and  Is  decremented  when  ENDIF,  ENDWHL,  or 
ENDFOR  Is  called. 

A new  statement  Is  Identified  by  examining  the  new  state- 
ment switch,  NEWST,  Immediately  after  IF,  IFB,  and  IFF  subroutines 
are  entered.  This  switch  Is  set  to  yes  (or  1)  when  the  main  pro- 
gram Is  entered,  and  after  THEN,  ELSE,  DO,  END IV,  and  ENDWHL  are 
called.  It  Is  set  to  no  (or  0)  In  IF,  IFB,  IFF,  WHILE,  WHILEB, 
and  WHILEF  subroutines.  It  Is  always  a new  statement  when  REPEAT 
or  FOR  Is  called. 

The  labels  generated  by  the  preprocessor  consist  of  three 
alphabetic  characters  followed  by  numeric  characters.  The  leading 
three  characters  are  QOR,  QEL,  QTR,  QRP,  QID,  QED,  QFR,  and  QFD. 

In  the  program  descriptions,  the  labels  are  denoted,  for  example, 
as  QOR-IOR.  (If  lOR  has  the  value  123,  this  Is  QOR123) . 

The  descriptions  of  the  processor  subprograms  follow.  The 
subprograms  are  slaqple  and  not  for  producing  "optimal"  codes, 
codes. 
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1 . Main  Program 

Set  the  new  statement  switch  NEWS!  to  1. 

Set  the  switch  array  IFWHSW  to  Oa  This  array  Is  used 
by  the  subroutine  THEN. 

DO  subroutine  sets  IFWHSW(ILEV)  to  1 and  calls  subrou- 
tine THEN.  Through  this  switch,  subroutine  THEN  will 
know  If  It  Is  called  as  a part  of  If  statement  or 
repeat-while  statement. 

Set  the  switch  MODE  to  0. 

MODE  Is  set  to  1 In  IFB  and  WHILES  subroutines  for  the 
byte  mode,  and  is  set  to  2 In  IFF  and  WHILEF  subroutines 
for  the  floating  point  number  mode.  It  Is  examined  In 
the  LOPR  subroutine  to  provide  the  correct  comparison 
Instruction. 

Call  subroutine  SCAN  to  separate  the  label,  to  store 
each  term  In  the  array  DTERM,  and  to  provide  the  number 
of  terms  In  the  line  In  INAR. 

If  INAR  Is  less  than  1,  then  write  the  input  line  of 
codes  on  the  output  device  and  go  back  to  read  the  next 
line. 

While  the  first  term  In  consideration  Is  a control  term 
(macro  name).  Increment  the  term  pointer  IPTR,  decrement 
INAR,  and  call  the  appropriate  subroutine  to  process 
It,  and  repeat  the  process.  If  the  terms  are  not 
exhausted,  then  write  the  remaining  terms. 

Go  back  to  read  the  next  line. 

2.  Subroutine  SCAN 

Seperate  the  label.  If  any,  and  store  each  term  of  the 
line  In  the  array  DTERM  separately. 

Disregard  the  comment. 

Set  the  term  pointer  IPTR  to  1. 

Set  INAR  to  the  number  of  terms. 

Return. 


17  - 


THE  JOHNS  HOPKINS  UNIVERSITY 

APPLIED  PHYSICS  LABORATORY 

LAuNEi.  Maryland 


3 . Subroutine  IF 

If  the  new  statement  switch  NEWS!  Is  1,  then 
ISQ  ■ ISQ  + 1 (Increment  the  sequence  number  by  1) 

ILEV  ■ ILEV  + 1 (Increment  the  nesting  level  number) 
ISTAK(ILEV)  - ISQ 
Set  NEWS!  to  0 
End. 

Set  lEL(ILV)  to  0 to  Initialize  the  else-swltch  for 
this  If  statement.  It  Is  later  set  to  1 when  ELSE 
subroutine  is  called.  This  switch  Is  later  examined  by 
ENDIF  subroutine. 

Interchange  the  first  two  terms  DTERM(IPT)  and 
DTERM(IPT+1) . Now  DTERM(IPT)  has  a logical  operator. 

Return. 

4.  Subroutine  IFB 

Set  MODE  to  1 for  the  byte  mode. 

Mode  will  be  examined  In  LOPR  subroutine  to  provide  the 
Instruction  for  word  comparei  byte  compare^  or 
floating  point  number  compare. 

Call  IF  subroutine. 

Return. 

5.  Subroutine  IFF 

Set  MODE  to  2 for  the  floating  point  number  mode. 

Call  IF  subroutine. 

Return. 

6.  Subroutine  THEM 
Set  NEWST  to  1. 

Write  the  conditional  Jump  statement  with  the  Instruc- 
tion code  from  IMSTl  and  the  destination  to  QTR-ISQ. 
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INSTl  and  INST2  are  set  by  the  logical  operator  handling 
subroutine  LOPR.  The  sequence  number  ISQ  Is  always 
found  through  ISTAK(ILEV). 

Write  the  label  QOR-ISQ  and  the  unconditional  jump  In- 
struction with  the  desltnatlon  QEL-ISQ.  The  destina- 
tion Is  the  Instruction  Immediately  following  the  ELSE 
term  In  the  statement,  or  ENDIF  or  ENDWHL  If  there  Is 
no  ELSE  In  the  statement. 

Set  lOR  to  lOR  + 1. 

Write  the  label  QTR-ISQ. 

If  INAR  Is  0,  or  If  there  Is  no  more  remaining  term  In 
the  Input  line  of  codes,  then  return. 

Write  the  remaining  terms. 

Set  INAR  to  0. 

If  IFWHSW(ILEV)  is  0,  then  call  ENDIF. 

Else  call  ENDWHL  and  set  IFWHSW(ILEV)  to  0. 

The  switch  IFWHSW(ILEV)  Is  set  to  nonzero  If  THEN  Is 
called  from  DO  subroutine  for  the  repeat-while  state- 
ment. 

Return. 

7 . Subroutine  ELSE 

Set  the  switch  lEL(ILEV)  to  1 to  signify  that  there  Is 
an  ELSE  term  In  the  If  statement. 

Set  NEWST  to  1. 

Write  the  unconditional  jump  Instruction  with  the 
destination  QID-ISQ,  or  the  Instruction  following 
ENDIF.  This  jump  Instruction  la  the  last  line  of  code 
In  the  Instruction  block  following  THEN. 

Write  the  label  QEL-ISQ. 

If  INAR  Is  0,  then  return. 

Write  the  remaining  term. 

Call  ENDIF  subroutine. 
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Set  INAR  to  0. 

Return. 

8.  Subroutine  ENDIF 

If  lEL(lLEV)  Is  0,  then  write  QEL-ISQ  label.  This 
means  that  ELSE  was  not  called  for  the  If  statement, 
and  we  need  to  add  the  QEL- label. 

Write  QID-ISQ  label. 

Set  INAR  to  0. 

Set  ILEV  to  ILEV  - 1. 

The  nesting  level  Is  decremented  since  an  If  statement 
Is  finished  and  the  level  Is  lowered. 

Return. 

9 . Subroutine  MH) 

Write  the  conditional  jump  Instruction  where  the  In- 
struction code  Is  taken  from  INST2  and  the  destination 
Is  QOR-IOR. 

Return. 

10 . Subroutine  OR 

Write  the  conditional  jump  Instruction  where  the  In- 
struction code  Is  taken  from  INSTl  and  the  destination 
Is  QTR-IOR. 

Write  the  label  QOR-ISQ. 

Set  lOR  to  lOR  + 1. 

Return. 

11.  Subroutine  REPEAT 
Set  ISQ  to  ISQ  + 1. 

Set  ILEV  to  ILEV  ■¥  1. 

Set  ISTAK(ILEV)  to  ISQ. 
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Write  the  label  QRF-ISQ. 

Return. 

12.  Subroutine  WHILE 
. Set  NEWST  to  0. 

Call  IF  subroutine. 

Return. 

13.  Subroutine  WHILES 
Set  MODE  to  1. 

Call  WHILE. 

Return. 

14.  Subroutine  WHILEF 
Set  MODE  to  2. 

Call  WHILE. 

Return. 

15 . Subroutine  DO 

Set  IFWHSQ(lLEV)  to  1. 

Call  THEN. 

Return. 

16.  Subroutine  ENDWHL 

Write  the  unconditional  Jump  Instruction  to  QRP-ISQ, 
which  Is  the  beginning  of  the  repeat-while  statement. 

Write  the  label  QEL-ISQ. 

Set  ILEV  to  ILEV  - 1. 

Set  NEWST  to  1. 

Return. 
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17.  Subroutine  FOR 

(When  this  subroutine  Is  entered,  the  terms  In  the 
array  DTERM  are  sdl  FROM  sd2  UPTO  (or  DOWNTO)  sd3  DO.) 

Set  ISQ  to  ISQ  + 1. 

Set  ILEV  to  ILEV  + 1. 

Set  ISTAK(ILEV)  to  ISQ. 

Write  the  Instruction  "move  sd2  to  sdl". 

Move  the  fourth  term,  UPTO  (or  DOWNTO),  to  the  third, 
and  move  the  first  term,  sdl,  to  the  fourth  In  DTERM 
array. 

Set  INAR  to  IWAR  - 2. 

Set  IPTR  to  IPTR  + 2. 

Return. 

Notice  that  DTERM(IPTR)  Is  now  UPTO  (or  DOWNTO). 

18.  Subroutine  UPTO  (or  DOWNTO) 

If  INAR  “ 3,  then  set  N to  1. 

If  INAR  - 5,  then  set  N to  DTERM(IPTR  + 3) . 

Set  INAR  to  0. 

Write  the  Instruction  "decrement  (or  Increment)  the 
first  argument  by  N". 

Write  the  label  QRF~ISQ. 

Write  the  Instruction  "If  the  first  ergument  Is  not 
greeter  (or  less)  then  the  second,  then  go  to  QFR-ISQ, 
else  go  to  QFD-ISQ". 

Set  NEWST  to  1. 

Return. 
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19.  Subroutine  ENDFOR 

Write  the  unconditional  Jump  Instruction  to  QFR-ISQ. 
Write  the  label  QFD-ISQ. 

Set  ILEV  to  ILEV  - 1. 

Set  NEWS!  to  1. 

Return. 

20.  Subroutine  GT  (or  GE,  EQ,  NE,  LE,  or  LT) 

Set  UNO  to  1 (or  2,  3,  A,  5,  or  6). 

Call  LOPR(IINO), 

Return. 

21.  Subroutine  LOPR(IINO) 

Write  the  Instruction  'Compare  the  first  two  terms 
DTERM(IPTR)  and  DTERM(IPTR  + 1)". 

The  comparison  Instruction  can  be  either  compare 
words,  bytes,  or  floating  point  numbers  according  to 
the  switch  MODE  “ 0,  1,  or  2,  respectively. 

Set  MODE  to  0. 

Store  the  Instruction  codes  In  INSTl  and  INST2  accord- 
ing to  the  table  below: 


Condltlcn 

IIND 

INSTl 

INST2 

GT 

1 

go  to  If  > 

go  to  If 

GE 

2 

go  to  If  2 

go  to  If 

EQ 

3 

go  to  If  ■ 

go  to  If 

NE 

4 

go  to  If  ^ 

go  to  If 

LE 

5 

go  to  If  S 

go  to  If 

LT 

6 

go  to  If  < 

go  to  If 
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5.  CONCLUDING  REMARKS 


The  macro  Instructions  described  here  can  substitute  for 
machine-oriented  high-level  language  and  can  help  one  Improve  the 
assembly  language  program  productivity  through  (a)  the  reduced 
number  of  lines  of  code,  (b)  Improved  program  readability,  and 
(c)  structured  programming.  One  can  Implement  additional  macro 
Instructions  and  use  them  to  adapt  the  language  to  the  given  task 
and  enjoy  the  above  advantages  even  further. 

If,  In  addition,  the  software  development  Is  Initiated  with 
Its  design  using  a suitable  design  language.  Its  successive  refine- 
ment could  result  In  the  final  program  code. 

Development  of  the  processor  for  the  above-mentioned  macro 
Instructions  Is  not  difficult.  Macro  language  processors  for 
small  computers  are  frequently  Inadequate.  For  these  reasons  the 
development  of  the  special  Independent  macro  processor  may  be  ad- 
vantageous . 
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APPENDIX 


The  macro  processing  program  for  MACRO-11,  the  PDP-11  Com- 
puter Assembly  Language,  is  listed  here.  The  program  performance 
is  different  from  the  description  in  Section  3 as  follows: 

1.  IFB,  IFF,  WHILES,  and  WHILEF  are  not  implemented. 

2.  Two  logical  operators  on  bits,  SETIN  and  VOIDIN,  are 
added. 

SDl  SETIN  SD2 

is  true  if  the  bits  set  in  SDl  are  also  set  in  SD2; 
otherwise,  it  is  false. 

SDl  VOIDIN  SD2 

is  true  if  each  bit  set  in  SDl  is  not  set  in  SD2; 
otherwise  it  is  false. 
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c 

C SEE  IF  The  term  is  in  the  macro  TEdLE 

c 

DO  400  I=l(MACNO 

IFtOAd)  .NE.  DTERM(IPTR))  GO  TO  400 
INO=I 

IPTR=IPTR+l 
INAR=INAR-1 
GO  To  410 
400  CONTINUE 
IN0=>1 
60  TO  boO 
410  continue 
C 
C 
C 

IFILABLSW  .EQ.  0>  GO  TO  310 
aRlTE(B>S0)  DLAUL 
50  FOKMATdXtAS) 

LABLSW=u 
310  CONTINUE 
C 

IFdNO  .LE.O)  GO  TO  600 

C IF  INO  > 0 A MACRO  IS  FOUND.  GO  PROCESS  IT 
C 

C IPTR  POINTS  To  THE  FIRST  ArGUMEIT  OF  THE  MACRO 
C INAM  gives  The  numiter  of  argumems  of  the  macro 
c INO  GIVES  The  seq.  no.  of  The  i-acro  in  the  table 
c 

60  to  (I>2>3.4.5>6>7t8>9d0dl«12d3f  14.15.16.17.ia.l9*20.2:l»22t 
1 23.24.25.26) >InO 
C 
C 

1 CALL  IF 
GO  TO  300 

2 CALL  then 

60  TO  300 

3 CALL  ELSE 

60  TO  300 

4 CALL  ENDIF 

GO  TO  300 

5 CALL  AND 

60  TO  300 

6 CALL  OR 

60  TO  300 

7 CALL  REPEAT 

60  TO  300 

S CALL  WHILE 

60  TO  300 

9 CALL  DO 

GO  To  300 

10  CALL  ENOWHL 

60  TO  300 

11  CALL  FOR 

60  To  300 

12  CALL  ENDFOR 

GO  To  300 

13  CALL  UPTO 

60  TO  300 
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P * 

, 14  CALL  OOWNTO 

' GO  TO  300 

15  CALL  GT 
GO  TO  300 

16  CALL  GE 
GO  TO  300 

17  CALL  EQ 
GO  TO  300 

f 18  CALL  NE 

r GO  To  300 

: 19  CALL  LE 

■ GO  TO  300 

20  CALL  LT 
GO  TO  300 

21  CALL  HI 
GO  TO  300 

22  CALL  HIS 
GO  TO  300 

23  CALL  LOS 
GO  TO  300 

24  CALL  LO 
GO  TO  300 

25  CALL  SET  IN 
GO  TO  300 

26  CALL  OISJNT 


c 

GO  TO  300 

c 

600 

110 

IFUPTR  .EO.  1) 
FOKMAT(9X.tfOAl) 
UJ=ISTHT(IPTR) 

WRlTE(B.llO) 

(ICOlM(l) ,1=1.72) 

1000 

IFUPTR  .GT.  1) 
GO  TO  200 
STOP 
ENU 

WRlTE(dUlO) 

UCDIM(I) ,I=JJ,72) 

c *•• 

SUbROUTiriE  SCA.J 

»•*••***• 

C SCANNS  ICOlM(l-7a)  .aNO  STORE  EACH  TCR.iS  IN  dTERMU-SO). 

C SETS  INAR  TO  « OF  TERMS. 

C 

COMMON  OL ABL  » OTERM ( 50 ) » OA ( 30 ) » DCi  )L ( 20 ) » DCNOC ( 20  > . D I MST 1 . 0 1 NST2  > 

1 ICOIH(BO)  .ISTK(IOU)  t I.'MRtiNOf 

2 LABLSW»MACNO.tlEGLIN»ISO»lLV*IOR.ISTRT<50) .IPTR 

UOUULE  PRECISION  OLADLiDTERM»OA*OCND»OCNPC OlNSTl .UIMST2 
LOGICAL*!  ICOIM 

LOGICAL*!  CO‘-NT. LABEL rBLANK. COMMA 
DOUBLE  PRECISION  OlTEM.oBLNK 
LOGICAL*!  ITEM 
DIMENSION  1TFM(6> 

EOUIVALENCE  (OITEM.ITEMdU 
DATA  08LNK  /BH  / 

DATA  COMNT  /IHI/ 

DATA  LABEL  /IHA/ 

DATA  BLANK  /IH  / 

DATA  COMMA  /IHt/ 

C IBCSO  IF  PREVIOUS  CHARACTER  «AS  A SEPARaTERI  BLANK  OR  COMMA 
C IBCSI  IF  PREVIOUS  CHARACTER  WAS  NOT  A SEPARATER 
C 

IBCSO 

JPTRSO 
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inarso 
LAULSM=0 
UO  1000  I=li30 
0ITCM=U8LNK 

99  JJ=1 

100  CONTINUE 
UPTRsjPTR^l 

IPlJpTrt  .GE.  73)  GO  TO  HO 
if(icoim(jptr)  .me.  commT)  go  to  .JOO 

C COMMENT 

110  IFdBC  .NE.  0)  GO  TO  ISO 
1NAR=I-1 

return 

150  continue 

INAR::! 

return 

c 

C A LAuEL< 

200  IFIICDIM(JPTR)  .NE.  LAUEL)  GO  TO  250 
C YES  A label 

UK=MIN0(JJ.7) 

ITEM<JK)=LA3EL 

lF(la)lM(JPTR41)  .NE.  LABEL)  GO  TO  160 
1TeM(JK«1)=LABEL 
JPTR=JPTR*1 
160  CONTINUE 
1BC=0 

ULADL=0ITEM 

LAbLSta=l 

1F<I  .LO.  1)  GO  To  210 
»RITE(H.90) 

90  format (♦  •••**  LABEL  IS  NOT  AT  THE  FIRST  TERM') 

return 

210  UITEm=ODLNK 
GO  TO  99 
C NOT  A LABEL 
C A SEPARATERC 

250  1F(IC01M(JPTR)  .NE.  BLANK  .AND.  ICUIM(JPTR)  .NE.  COMMA)  GO  TO  300 
C YES  A SEPARaTER 
c PREVIOUS  character  a SEPARATERC 
IFlljC  .EO.  0)  GO  TO  loo 
C NO.  END  OF  A TERM 
0TERM(1)=01TEH 
1BC=0 

60  To  1000 
C 

C NOT  A SEPARATER 

300  IFdBC  ,EO.  0)  lSTRTd)=JPTR 

1F(JJ  .LE.  8)  ITEM(JJ)=IC0IM(JPTR) 

U J— J 1 
IBCSI 
60  To  100 

1000  continue 

»RITE(8.10) 

10  FORMAT! 'ERROR.  THERE  ARE  MORE  THAN  30  TERMS') 

return 

ENU 

block  data 

C NOT  included  ARE  BPL-!»M1.bCC»BVC»BCS»BVS>... 


■ 8®  AVAUACIE  COPY 
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COMMON  OLABLaOTCRM(SO) ADA(30)fOCllU(20>  aDCNOCCZO) »OINSTt aOIMST2a 

1 lCOIM(dO)  aISTK(IOU)  f IIiARi  INOa 

2 LABLS«l.MACMOAt4EWLIN.ISO»lLV*IOR.ISTRT<'50)  aIPTR 

OOUBLC  PRCCISlOij  OUAUL>DTERMtOA aOCND aOCnDC aDINSTI aDINST2 
LOGICAL*!  ICOlM 
C 

DATA  MACNO  /26/ 


DATA 

DA(  1) 

/8HlF 

/ 

DATA 

DA(  2) 

/ohthen 

/ 

DATA 

DA(  3) 

/BhELSE 

/ 

DATA 

OA(  4) 

/uhendif 

/ 

DATA 

OA(  b> 

/8||AND 

/ 

OATA 

OA(  6) 

/«hor 

/ 

DATA 

DA(  7) 

/8HREPEAT 

/ 

data 

OA(  B> 

/BHWHILE 

/ 

DATA 

OA(  9) 

/bHOO 

/ 

DATA 

DAdOl 

/3hEHD*IHL 

/ 

DATA 

DA<11) 

/3hF0K 

f 

DATA 

0A(!2> 

/8HEHUFOR 

/ 

data 

0A(!3) 

/8HUPT0 

/ 

DATA 

Da(14) 

/8hOO*MTO 

/ 

DATA 

UA<15> 

/8h6T 

/ 

OATA 

DA(lb) 

/8hGE 

/ 

DATA 

0A(17) 

/eiiEo 

/ 

DATA 

DAddI 

/8HNE 

/ 

DATA 

OA(19) 

/3hLE 

/ 

DATA 

DA(20) 

/8hLT 

/ 

DATA 

DA (21) 

/8hHI 

/ 

DATA 

DA(22) 

/etiHis 

/ 

DATA 

DA(23) 

/«hlos 

/ 

DATA 

DA(24) 

/8IILO 

/ 

DATA 

OA(2b> 

/8H?ETTN 

/ 

DATA 

0A(2b) 

/8li0ISJ01.-4T/ 

DATA 

OCnO<!) 

/8HB6T 

/ 

data 

0Clj0<2) 

/8Hi36e 

/ 

DATA 

0Ch0(3) 

/8MBEU 

/ 

DATA 

0Cn0(4) 

/8H0NE 

/ 

DATA 

OCnO(5) 

/8H0LE 

/ 

DATA 

OCnO(6) 

/bholt 

/ 

data 

OCmO<7) 

/SIlOHl 

/ 

DATA 

OCitO(d) 

/bhbhis 

/ 

DATA 

OCnO(9I 

/8HBL0S 

/ 

DATA 

OCNO(10)/6hBLO 

/ 

DATA 

OCnDC ( 1 ) 

/8H8LE 

OATA 

OCl«OC(2> 

/8HQLT 

OATA 

0C|;0C(3) 

/ohune 

DATA 

OCnOC(4) 

/aHuto 

DATA 

OCt.DC(S) 

/8HH6T 

DATA 

OCnOCCG) 

/aHIlGE 

DATA 

0Cr.0C(7) 

/8HBLOS 

OATA 

0Cti0C(8) 

/8HBL0 

OATA 

0Cn0C(9) 

/8HDHI 

DATA  OCuOCllOt  /84K5NIS  / 

C 

DATA  lOR  /!00/ 

DATA  ISO  /lOO/ 

OA1A  ILV  /!/ 
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END 

C *•••*««•*•«•••««•*••*«*•*•*• 

SUbROUTINE  STEQLTIIINO) 

COMMON  DLAHL»OTERM(SO) eOA(30) >OCwO(20l eOCNDCCZO) eDINST  rDiriST2t 
1 ICDlM(a0)ElSTK(100)>lNARElMOt 

a LABLSElEMACMOENEWLINt ISO* ILVe IORe ISTRT (SO ) • IPTR 
DOUBLE  PRECISION  0LABI.e0TEKMeUAeDCnDeDCm0CeDINST1e01NST2 
LOGICAL*!  ICCIM 

WRITE(BeIO)  OTERM(IPTR) eDTERM(1PTH*I) 

10  FORMAT! XX E ax e'CkP  * 

1PTR=1PTH*2 

XNAR=lNAR~a 

0INST1=0CND(IIN0> 

D1NST2=UCMJC(IInO) 

return 

END 

c A*************************** 

subroutine  if 
IF  A B c D E 
CMP  AtC 
U t»  E F 

COMMON  OLABLeOTERMISO)  eDAOO)  eOCiID(20>  eDCI1OC(20’  eDINSTI  eOINST2e 

1 ICDIM(oO)eISTK(IOO)iI ^AReKiCe 

2 LABLSWEMACNOENrWLlN»ISOElLVElORElSTRT(50) eIPTR 
double  precision  OLABLEOTERVlEDAEDCNOEDCNOCEniNSTlEOINST 
LOGICAL*!  ICDIM 

C 

COMMON  /CEL/  IEL(50) 

COMMON  /COm2/  IF*HSW(50) 

C 

IFtNEMLIN  .EQ.  0>  GO  TO  100 
ISU=IS0*I 
ILV=ILV*1 
ISTK(ILV)=ISO 
1FAHSH(ILV)=0 
NEWLIN=0 
loo  CONTINUE 

1EL(1LV(::0 

C interchange  DTER'MIPTR)  ano  OTERi'dPTK*!) 

DTERmI IpTR-l ) roTERK ( XPTH+1 ) 

DTLRM ( 1 PTR* 1 ) =OTCRm (IPTR) 

OTERmUPTR  )=DTERMUPTR-1» 

return 

END 

C «*•••••••*«••««•«*•*••*««*•• 

suuRouTif^  Then 

COMMON  OLANLEOTERMtSOI eOA(30) EaCND(20) e0CN0C(2Q) tOINSTi eUIMST2e 

1 ICOIM(bOI E ISTK( lOU) E InaRe INOe 

2 LABlSKeMACHOeNEMLINeISCeILVeIORe ISTRT(SO) eIPTR 
DOUBLE  PRECISION  OLABLEuTERMEUAEOCrEnEOCNOCEOINSTltOlNST 
logical*!  ICOIM 

COMMON  /C0M2/  IFWHSW(SO) 

C 

NEWLlNSl 

C B-OL  .*6 

WRXTE(dElO)  OINSTI 
10  FORMATtOXEAAE'.tGM 
C eOR«  GAP  OEL'ISO 

hRne(dE20>  IOReISTK(1LV> 

20  FOHMAT(lXE«aOR*El3E*a«(2XE'JvpE,5A«EOEL>El3> 
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C OTR-ISw« 

MRlTe(8»30l  ISTk(ILV) 

30  FOkRAT(iX**OTR'fI3»*«*l 

IOR=IOR«1 

IFdNAH  .eu.  0)  RCTURr4 
C REMAINIG  TERMS 

JJ=1STRT(1PTR) 

ARlTE<br*»0)  (ICUlM(J)  •J=JJ»72) 

IFCIFWHSMdLV)  .EQ.  0)  CALL  ENOIF 
IFdFWHSMdLV)  .EQ.  1)  CALL  EN0M.1L 
lFnHSWdLV)=0 
1NhR=0 

40  F0KMAT(9X*72a1) 

RETURN 

ENU 

c ••««•**«•****•**•***«••«**«* 

SUiiHOUTINE  ELSE 

C0HA10N  OLARL>OTERM(SO) .OA(30I tQC  10(20) >0CN0C(2n)»0INSTl fOINST2» 

1 ICOIH(bO)  rlSTK(lOU)  dNARdNOf 

2 LABLSk.fMAC:iO>MEWLIMdSQ>  ILV • lUK dSTPT ( 50 ) • IPTR 
OOUULE  precision  DLABL»0TtRM.DA»DCND*DCMDC*0INST1.01NST 
LOGICAL*!  ICDIM 

C 

COMMON  /CEL/  lELlSO) 

C 

NEkLIns! 

1EL(ILV)=1 

C JMP  QlD-ISO 

ARlTEia.lO)  ISTKdLV) 

10  F0RF.AT(9X»*JMP  0I0*.I3) 

C QEL-lSua 

AR1TE(8i20)  ISTKdLV) 

20  FOHMATdX»»OeL*»13»'«») 

IFdNAR  .EQ.  0)  return 
C REMAINING  TERMS 

JJ=ISTRTdPTn) 

MRlTE(bt30)  dCOlM(J)»J=JJ»72) 

30  F0RNAT(9X»72M) 

CALL  ENOIF 

return 

ENO 

C A*************************** 

subroutine  Er;01F 

COMMON  DLA'TLtOTERMiSO) •OA(30>  >0C  40(201 tOCNOC (20) tOlMSTI rulNST2» 

1 XC01M(bO)dSTK(10u)>I.lARdNO» 

2 LABLS2>MACM0»riEWLlMf  ISO'lLVdORt  tSTRT<SO)>IPTP 

OOUbLE  PRECISION  0LAaL»0TERM«DA>0Ci4)>0CN0C.DIMSTlt0INST? 
LOGICAL*!  ICOIM 
C 

COMMON  /CEL/  lELlSOI 
C 

IFdELdLV)  .EO.O)  WRlTE(e>20)  ISTKdLV) 

C QEL-lS(i« 

20  F0HMATdX»'0EL'fI3>'«') 

C 010-lS(i« 

4R!TE(«>!0)  ISTKdLV) 
to  FONMAT(!X«"9IO*»I3>«a') 

1LVSILV-! 

INARxO 


] 

] 

J 
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NEHLlNSl 

return 

ENU 

C ••**•«•*•**•••••*•••••»««•«* 

SUbROUTlNE  AMD 

COMMON  ULADL>OTERH(50) ,0A(30) >OCMU(20) tOCNOCCZO) fOIMSTi >0IMST2> 

1 ICDIM(o0)>ISTK(10U) •I,4AR»IM0> 

2 LAPLS<t.MACMO»MEtlLIN»lSO»lLV»I0R»ISTRT{50)  »IPTH 

OOUbLE  PRECISION  0LA0L.DTERH»0A»DCND*DCNDC »DINST1 *L»ItlbT2 
L061CAL*!  ICOIM 
C 

C BaGL  uOR’IOR 

tkRlTE(b>10)  DINST2>I0R 
10  F0rtNAT(lX*6X.A&**00R'tI3) 

RETURN 

END 

C 

SUBROUTINE  OR 

COMMON  OLA3LtDTERM(SO)  •DA(30)  •□C'<Df.?0)  •OCNOC(20>  •UINSTI  .OINST2> 

1 lC01M(b0)»ISTKa00)»lNAR»lNO> 

2 LABLSw»MACNO»flEWLIN»ISO»ILV»IOR* 1STRTC50) .IPTR 

DOUBLE  PRECISION  OLABL.oTERHtDA#DCIir)»OCNDC »DirjSTl »DItlST2 
LOGICAL*!  ICDIM 
C 

C B6L  OTR-ISO 

bRlTElBtlO)  DlNSTltlSTK(lLV) 

10  FORPAT(yX*A8.»QTR»*I3) 

C OOR-IORA 

lkRlTE(d.20>  lOR 
20  F0RMAT«1X*'00R'#I3»*«M 

iOR=IOK*l 
RETURN 
END 

C A*************************** 

subroutine  repeat 

COMMON  OLABL>OTCKM(50I •DA(30) >DC  iU(20) tOCNOC (2C>  >l)INST| •0INST2« 

1 ICDIH(UO)  • ISTKUOU)  • InaR*  IN0> 

2 LABLS»».MACNO»MEWLIM*lSO*ILrf»IOR»ISTRT<50) »IPTR 

doodle  PRECISION  DLA0L»0TERM*DA»DCNn»0CM0C»0IfiSTl»0INST2 
LOGICAL*!  ICDIM 
C 

ILVsfLV*! 

1SU=ISU*! 

ISTK(ILV)=1SQ 

NEkLINSO 

»R!TE(St!0)  ISO 
!0  FOKMAT(!X»«ORP*»I3»'a*) 
return 
ENU 

C ••••••*•••••*•*••*••*«**•*•• 

SUuROUTiriE  WHILE 

COMMON  DLASL • JTERM ( SQ  > • DA  1 30 ) f DC  *0 ( 20  > »CCNOC ( 20  > f DINST ! t D1 MST2 • 

1 ICDIH<60)tlSTK(!0u)>lKAR»IIIO» 

2 LAbLS* , MACNO « NEfL !M  > I SO ' IL  V » I OR  * ! STRT ( 50 ) > IPTR 
OOUBLE  PRECISION  DLAOL«DTERM*OA»DCIiO*OCNDC »niNST! (DINST 
LOGICAL*!  ICOIM 

C 

NCbLlNso 
CALL  IF 

return 
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END 

C ••«**••*•««*««••*••**««*«*«« 

subroutine  00 

COHMOM  OLAHLeOTEHM(SO) eDA(30) >OCriD(20) eOCMOC (20 > eOINSTI eDINSTZ • 

1 ICOIM(bO) eISTK(IOU) eIiIaReINOe 

2 LABLSWeMACNO*NE«(LIN. iso* IUV. IOR* ISTRT (50) . IPTK 

DOUBLE  PRECISION  i3LABL.0TtRM*0A*0CNr).DCMDC*0INSTl.0INST? 

L061CAL«1  ICOIM 

COMMON  /C0M2/  IFWHSVf(50) 

1FWHSW(1LV)=1 

CALL  THEN 

IFteHSM(ILV)=0 

RETURN 

END 

C **S*****K**«««**R***«*«S*Sk* 

SUBROUTINE  ENOrHL 

COMMON  OLAOL'OTERMISO) eOA ( 30 ) »OCl.U (20) *DCN0C (20 > *DIMSTi *UINST2> 

1 ICOIM(t)O)  *ISTK(100)  >1uAR*IN0* 

2 LABLSW.MACNOHJEWLIN* ISO* ILV* IOR* ISTRT ( 50 ) . IPTR 
double  PRECISION  0LA9L*0TEHM*DA*0CND*DCnDC *0INST1 * JINST2 
LOGICAL*!  ICOIM 

JMP  GRP- I SO 

kRlTE(dElO)  ISTk(ILV) 

F0KMAT(9X* • JVP»*5X*  *ORP*  *13) 

OEL-lSb«  V 

hRlTE(B*20)  ISTK(ILV) 

1 FORMATdX*  *OEL*  *13*  •«•  ) 

!LW=ILV-1 
NEriLlN=l 
RETURN 
END 


subroutine  for 

COMMON  0LAI)L*DTERK(50) *0A(30) *DC!lL(20) *OCNOC(20) • JIMSTt  *UIMST2* 

1 1CCIM(«0) *ISTK(100) *IiiAR*lHO* 

2 LABLSeI  * MACtIO  * NEWLIN  • I SO  * IL  V * I OR  * I STRT  ( 50 ) * IPTR 

double  precision  0LA3L*DTE!IM*DA*DCNn*0CNDC*0INSTl*DINST2 
LOGICAL*!  ICOIM 

FOR  I FROM  BEG  UPOOWi)  END  BY  INC  00 
NCRLIN=b 
ILVSILV*! 

ISijsiSG*! 

1STK(1LV)=1S0 
MOV  BCG* I 

lkRITC(a*IO)  0TCHM(IPTR*2>*0TrRM(IPTR) 
format (9X*'M0V«*SX*A8***'*A6) 

UPOOWN  1 E>lO  BT  INC  DG 
UPOOGN  I END  DO 
DTERM ( IPTR*2 ) zOTERM  ( IPTR'»3 > 

OTeRH(lPTR*3)sOTERM(IPTR) 

IP1RsIPTR*2 

XNAR:1NAR>2 

RETURN 

END 


SUbROUTINC  UPTO 

COMMON  OLAi)L*0TERM(50>  *DA(30)*DC.4D(20) *OCNOC(20l •0XNST!*01NST2* 
1 ICD|M(eO)«ISTK(XOOi*XNARf XNO* 
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2 LABLSW.MACMO*NEWLIH»ISO»lLV»IORf ISTRT(50I .rPTR 
DOUBLE  PRECISION  DLABL»DTERM»0A*0CND*0CN0C*0INST1 »0It;ST2 
LOGICAL*!  ICOIM 
C 

IFdUAK  .EG.  3)  GO  TO  ISO 
IFCINAR  .EG.  S)  60  TO  200 
kiRITEId.lO) 

10  format (t  *«  POR-STMT  ERROR  •••») 

INAR=0 

return 

160  CONTINUE 

C DEC  1 

hRlTC(Or20>  DTERMIIPTR) 

20  format ( 9X > 'DEC* (SAa AS) 

C 0FH-1SG« 

I»RITE(8*30)  ISTk(ILV) 

30  F0RMAT<1X»»0FR»*I3a*4») 

C INC  I 

l»RlTE(Sr40)  DTERM(IPTR) 

40  F0KMAT(9X* *IMC* .bX»AS) 

GO  TO  300 
200  COliTINUE 

C SUd  INCRMfl 

l*RITE(6.b0)  DTERM(IPTR+3)  »OTERM(IPTr) 

50  F0RMAT(9X.»5U3'.5x*A8f‘.**A«) 

C GFK-ISGS 

WRITE(b.30)  ISTKdLV) 

C ADO  INCRMfl 

WRITE 60)  rjTERMdPTRtS)  *DTERM(IPTr) 

60  FORMAT (9X A ’ADD*  *5X*A8» • a • aA8) 

300  CONTINUE 

C CMP  I A END 

WRITE (8 A 70)  OTERM(IPTR)  aOTER.^IIPT  <♦!) 

70  F0RKAT(9Xa 'CMP*  a5XaA8a • a • aA8) 

C BLOS  .*6 

WR1TE(cIa80) 

80  F0KMAT(9Xa 'BLOS* a4Xa • .*&• ) 

C JMP  GFO'-ISQ 

WRITE(6a90)  ISTKdLV) 

90  FORMAT(9Xa»JMP*a5Xa»QFD'*I3) 

1NAR=0 

NEWLIN=1 

return 

END 

C w*************************** 

SUbHOUTlNE  DOWtITO 

COMMON  OLARLaCTERMISO)  aDA(30)  aOCi-IU(20)  aCCNDC(20)  aQINSTI  aUINST2a 

1 1CD1MI60) A ISTK I loo ) A INARa INOa 

2 LABLSWaMACNOaNEWLINa iso* ILVa IOR* ISTRT(SO) a IPTR 

DOUBLE  PRECISION  OLAOLAOTERMADAADCNnAOCNDCAOlNSTlAOINST'i 
LOGICAL*!  ICOIM 
C 

C OOWNTO  I END  00 
C OOwNTO  1 END  BY  DEC  DO 

IFdriAK  .EG.  3)  GO  TO  180 
IFdNAH  .EG.  5)  GO  TO  200 
•RITEidAlU) 

10  FORMAT (•  ••  FOR-STMT  ERROR  *••*) 

INARsO 

RETURN 
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160  CONTINUE 

C INC  I 

kiRlTe(0*20)  OTCRMdPTR) 

20  F0KNAT(9X» • MC* .5X>A6) 

C OFR-lSU 

hRiTE(a.30>  ISTK(ILV) 

30  FOkMAT(lX.*OFR'*I3»*«») 

C DEC  1 

WRITE«a.i*0)  OTERM(IPTR) 

HO  F0kMAT(9X»‘0EC».5X»A8) 

GO  To  300 
200  CONTINUE 

C ADO  INCRMtl 

*<RiTE(a.50)  nTERM(IPTR+3) »DTLRM<IRTr) 

50  F0KKAT(9X» 'ADO* .5X*A8. • , • »A8) 

C GFR-ISUA 

»iR1TE(0#30)  ISTK<ILV) 

C SUB  INCRM.I 

WR1TEC8.60)  DTERM(1PTR+3>  »DTERM<IPTR) 

60  FOi<FAT(9X»  'SUB*  >5X>A8>  • • • •Ad) 

300  continue 

C tPP  1»END 

lnRITE(a,70)  0TE«M<IPTR) ,CTER»(IPTR+1) 

70  format (9X. 'CMP* .5x»A8t • , • »Aa) 

C DHIS 

hRlTE(a.OO) 

80  F0HMAT(9X* 'tJHIS* 'HX.  • ,♦6*  ) 

c dMp  uFo-isa 

HRlTe(a>90)  ISTKdLV) 

90  F0KMaT<9X»  »JMP»»5X»*aPd*»13) 

iNARrO 
NEMLIN=1 
return 

ENU 

C •*•**•«•••*«***•******«*•*•• 

SUbROUTlNE  EMDFOR 

COMMON  DLAUL»OTEHN(50) #DAI30) »DCmu(20) .DCNOC(20) tOINSTl tUIflSTat 

1 ICDIM(60)»ISTK(100)rI,jAR>ItJC> 

2 LABLS'X»MACNO*N£XLlNf ISC • ILV» lOR* 1STRT(50) * IPTR 

DOUBLE  PRECISION  OLABLf CTERN|»OA»DCNO*OCuDC •DINSTl »DINSTa 
LOGICAL*!  iCOIM 
C 

C JMP  OFR-ISO 

WRlTC(a>10)  ISTKdLV) 

10  F0RMAT(9X»*J»^P«»5X»*QFK»*I3) 

C GFD-15U6 

hRlTE(6f20)  ISTKdLV) 

20  F0RMAT(1X»*0FD'»13**6«) 

lLVsiLV-1 
NEML1')31 
return 

END 


SUbROUTlNE  6T 
llNOsl 

CALL  6TE0LTdlN0> 
return 
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IIN0=2 

CALL  6TEOLT(llr40) 

RETURN 

LNO 

c *•••*••*«*•*«•••*•*••*««*••• 

subroutine  eo 

11N0=3 

CALL  GTEOLT(llNO) 

RETURN 

END 

C •*•••*•*••*••**«*•«•«*«•«««« 

subroutine  ne 

11140=4 

CALL  GTeOLT<IINO) 

return 

EMU 

c *««••***«*«*****•**•***««««• 

subroutine  le 

1IN0=S 

CALL  6TeOLT(III40) 

return 

LNO 

c **«****««****************««4i 

SUBROUTINE  LT 

1 11.0=6  j 

CALL  GTEOLT(IINO)  / 

return  / 

EMU 

C **«*****««««******«*****«4i*« 

SUBROUTINE  HI 

irt,o=7  / 

CALL  GTEOLT(IINO)  ‘ 

RETURN 

END 

C •*•*•*•*•«»•«•*«**•*•***•*•• 

SUBROUTINE  HIS  / 

lINO=b  / 

CALL  GTEOLT(IINO) 

RETURN 

END 

C «••«•••**«******••«•«***«•** 

SUBROUTINE  LOS 
1IN0=9 

CALL  GTEOLT(IINO) 

RETURN 

ENB 

C I**************************** 

SUBROUTINE  LO 

111.0=10 

CALL  GTEOLTIIINO) 
return 

END 

C ••»•••««**««««**«•««****«««« 

subroutine  SET  In 

COHNON  OLARL • DTEKM (S0)«OA(3n)>oCiiD(20)«  OCNOC ( 2 0 ) • 0 1 NST l . D INST2 • 

1 icoiM(aouisTKiiou>»iN/>R»irio» 

2 LAELSW.MACM0»N£I*L1N» iso* ILV. 10R» ISTRT(SO) . IPTR 

double  precision  0LA8L.0TtKM.DA.DCN0»0CHDC»DIMSTl»01NST9 

logical*!  ICOIM 

data  OSTI  /SMBEO  / 
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data  DST2  /flHBNE  / 

hRlTE<8.10)  oTERMdPTH+X) 

HRITE(B>1I)  DTERH(IPTR) 

WRlT£<a,12)  OTef<M(IPT«+l) 

10  F0hMATUX»tiX,  »M0V  t , AS,  * .-(SP)  • ) 

11  FOHMATUX.ttX.'UlS  *.A8»'.(SP)») 

12  FORMATdXfdX.  »CmP  • ,A8»  • t (SP)  + * ) 

DINST1=0ST1 

DINST2=DST2 

IPTR=IHTR*2 

1NAR=INAR>2 

return 

END 

c *••♦•*••**•**•♦*♦•*•»•••*♦*• 

SUBROUTINE  OISJNT 

COhViON  OLARLeDTEHMISO) »DA(30) *OC  ID (20) .DCNOC <20 ) eOINSTi .0INST2» 

1 lCDIM(eO) eISTK(IOO) eIMAReINOe 

2 LABLS« . MACNO  triEWLINi ISO  * ILV • lOR » 1 STRT ( 50 ) . IPTR 

DOUBLE  precision  OLABLeDTERI-  »0A»DC(<D  eDCnDC  f OIMSTl  »l)INST2 

LOGICAL*!  ICOIM 

DATA  OSTl  /0HBEO  / 

data  0ST2  /6HBNE  / 

»R1TE(8e10)  oTEKM(IPTR*1) 

SRlTLCbEl!)  DTERHdPTR) 

WRlTE(aEl2)  DTERMdPTR+1) 

10  FORMATdXEflXE'MOV  • e A8e  » e-(SP)  • ) 

11  FOKMATdXEbX, ‘UIC  EeASe^eISP)*  ) 

12  format dXEaxE'CNiP  *eASe • e (sp)*» ) 

DInST1=DST1 

D1NST2=dST2 

lPTR=IPTR+2 

1NAK=INAR-2 

RETURN 

END 
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Ent  AFB,  CO  80912 

Systems  Branch 

1 

7102  CSS  Hq.  USAFE,  ACDYV 

APO  New  York,  NY  09012 

CO 

1 

D.  Bellfuss 

1 

CONTRACTORS 

General  Electric  Co. 

Louisville,  KY  40225 

Physical  Sciences  Dept. 

1 

L.  T.  Nleh 

1 

Electronlca  Corp.  of  India,  Ltd. 

Hyderabad-500  040,  A.P.,  India 

Computer  Group 

1 

V,  K.  Premchand 

1 

UNIVERSITIES 

U.  of  California 

Santa  Barbara,  CA 

Computing  Ctr. 

1 

U.  of  Waterloo 

Waterloo,  Ontario,  Canada 

Computing  Ctr. 

1 

U.  of  New  England 

Annldale,  NSW,  2351,  Australia 

W.  Adamson,  Dept,  of 

Computing  Science 

1 

U.  of  Texaa 

Galveston,  TX  77550 

Medical  Branch 

1 

F.  D.  Sawyer 

1 

U.  of  Regina 

Regina,  Sask.,  Canada 

Dr.  R.  B.  Maguire,  Dept,  of 

Computer  Science 

1 

U.  of  Washington 

Seattle,  WA  98195 

M.  Frimer,  Cardiovascular 

Res.  and  Tng.  Ctr. 

1 

Indiana  U. 

Bloomington,  IN  47401 

J.  C«  Forahee,  Dept,  of 

Psychology 

1 

OTHER  ORGANIZATIONS 

Natural  Gas  Pipeline  Co.  of  America 

Chicago,  IL  60603 

A.  P.  Llaugaudas 

1 

Alualnua  Company  of  Canada,  Ltd. 

Arvida,  Que.,  Canada 

J.  Menard,  Process  Control 

Dept. 

1 

Ee  R.  Squibb  & Sons,  Inc. 

Princeton,  NJ  08540 

P.  J.  Black 

1 

Lockheed,  Falo  Alto  Research  Laboratory 

Pelo  Alto,  CA  94304 

C.  Hanna,  52-33,  Bldg.  205 

1 

Alberta  Raacarch 

Edmonton,  Alta.,  Canada 

M.  Re  Johnson 

1 

Sandia  Laboratories 

Llveriaore,  CA  94550 

R.  Y.  Lee,  Dlv.  8322 

1 

CSIRO  Dlv.  of  Textile  Physics,  Wool 

Research  Laboratories 

Ryde,  NSW,  Australia 

R.  N.  Caffln 

1 

PtadHesn  for  coplat  o<  dilt  report  from  DoO  activltitt  and  contractoit  thouM  be  diractsd  to  DOC. 
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